home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fg / fgdef.bas < prev    next >
BASIC Source File  |  1994-11-02  |  19KB  |  283 lines
  1. Option Explicit
  2. 'Core definition of the VB API
  3.  
  4. Type PointAPI
  5.     X As Integer
  6.     Y As Integer
  7. End Type
  8.  
  9. Type SCALEPOINTAPI
  10.     X As Double
  11.     Y As Double
  12. End Type
  13.  
  14. 'Object Creation functions
  15.  
  16. Declare Function CreatePicture Lib "FG.VBX" Alias "CreatePicture" (ByVal PictureHandle&) As Long
  17. Declare Function CreateGlobalPicture Lib "FG.VBX" Alias "CreateGlobalPicture" () As Long
  18.  
  19. ' Physical objects
  20.  
  21. Declare Function CreateArc Lib "FG.VBX" Alias "CreateArc" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%, ByVal X3%, ByVal Y3%, ByVal X4%, ByVal Y4%) As Long
  22. Declare Function CreateChord Lib "FG.VBX" Alias "CreateChord" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%, ByVal X3%, ByVal Y3%, ByVal X4%, ByVal Y4%) As Long
  23. Declare Function CreateDrawText Lib "FG.VBX" Alias "CreateDrawText" (ByVal PictureHandle&, ByVal NewText$, ByVal RectLeft%, ByVal RectTop%, ByVal RectWidth%, ByVal RectHeight%, ByVal nFormat%) As Long
  24. Declare Function CreateEllipse Lib "FG.VBX" Alias "CreateEllipse" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%) As Long
  25. Declare Function CreateLine Lib "FG.VBX" Alias "CreateLine" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%) As Long
  26. Declare Function CreatePolygon Lib "FG.VBX" Alias "CreatePolygon" (ByVal PictureHandle&) As Long
  27. Declare Function BCreatePolygon Lib "FG.VBX" Alias "BCreatePolygon" (ByVal PictureHandle&, ThePoints() As PointAPI) As Long
  28. Declare Function CreatePie Lib "FG.VBX" Alias "CreatePie" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%, ByVal X3%, ByVal Y3%, ByVal X4%, ByVal Y4%) As Long
  29. Declare Function CreatePolyLine Lib "FG.VBX" Alias "CreatePolyLine" (ByVal PictureHandle&) As Long
  30. Declare Function BCreatePolyLine Lib "FG.VBX" Alias "BCreatePolyLine" (ByVal PictureHandle&, ThePoints() As PointAPI) As Long
  31. Declare Function CreatePolyPolygon Lib "FG.VBX" Alias "CreatePolyPolygon" (ByVal PictureHandle&) As Long
  32. Declare Function BCreatePolyPolygon Lib "FG.VBX" Alias "BCreatePolyPolygon" (ByVal PictureHandle&, ThePoints() As PointAPI, Polycounts%()) As Long
  33. Declare Function CReateRectangle Lib "FG.VBX" Alias "CreateRectangle" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%) As Long
  34. Declare Function CreateRoundRect Lib "FG.VBX" Alias "CreateRoundRect" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%, ByVal X3%, ByVal Y3%) As Long
  35. Declare Function CreateTextOut Lib "FG.VBX" Alias "CreateTextOut" (ByVal PictureHandle&, ByVal X1%, ByVal Y1%, ByVal NewText$) As Long
  36. Declare Function BCreateTabbedTextOut Lib "FG.VBX" Alias "BCreateTabbedTextOut" (ByVal PictureHandle&, ByVal X%, ByVal Y%, ByVal NewText$, TabStopPositions%(), ByVal TabOrigin%) As Long
  37. Declare Function CreatePolyTextOut Lib "FG.VBX" Alias "CreatePolyTextOut" (ByVal PictureHandle&) As Long
  38. Declare Function BCreatePolyTextOut Lib "FG.VBX" Alias "BCreatePolyTextOut" (ByVal PictureHandle&, ThePoints() As PointAPI, OutText$()) As Long
  39.  
  40.  
  41. ' World objects
  42.  
  43. Declare Function SCreateArc Lib "FG.VBX" Alias "SCreateArc" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#, ByVal X3#, ByVal Y3#, ByVal X4#, ByVal Y4#) As Long
  44. Declare Function SCreateChord Lib "FG.VBX" Alias "SCreateChord" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#, ByVal X3#, ByVal Y3#, ByVal X4#, ByVal Y4#) As Long
  45. Declare Function SCreateDrawText Lib "FG.VBX" Alias "SCreateDrawText" (ByVal PictureHandle&, ByVal NewText$, ByVal RectLeft#, ByVal RectTop#, ByVal RectWidth#, ByVal RectHeight#, ByVal nFormat%) As Long
  46. Declare Function SCreateEllipse Lib "FG.VBX" Alias "SCreateEllipse" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#) As Long
  47. Declare Function SCreateLine Lib "FG.VBX" Alias "SCreateLine" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#) As Long
  48. Declare Function SCreatePolygon Lib "FG.VBX" Alias "SCreatePolygon" (ByVal PictureHandle&) As Long
  49. Declare Function SBCreatePolygon Lib "FG.VBX" Alias "SBCreatePolygon" (ByVal PictureHandle&, ThePoints() As SCALEPOINTAPI) As Long
  50. Declare Function SCreatePie Lib "FG.VBX" Alias "SCreatePie" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#, ByVal X3#, ByVal Y3#, ByVal X4#, ByVal Y4#) As Long
  51. Declare Function SCreatePolyline Lib "FG.VBX" Alias "SCreatePolyLine" (ByVal PictureHandle&) As Long
  52. Declare Function SBCreatePolyline Lib "FG.VBX" Alias "SBCreatePolyLine" (ByVal PictureHandle&, ThePoints() As SCALEPOINTAPI) As Long
  53. Declare Function SCreatePolyPolygon Lib "FG.VBX" Alias "SCreatePolyPolygon" (ByVal PictureHandle&) As Long
  54. Declare Function SBCreatePolyPolygon Lib "FG.VBX" Alias "SBCreatePolyPolygon" (ByVal PictureHandle&, ThePoints() As SCALEPOINTAPI, Polycounts%()) As Long
  55. Declare Function SCReateRectangle Lib "FG.VBX" Alias "SCreateRectangle" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#) As Long
  56. Declare Function SCreateRoundRect Lib "FG.VBX" Alias "SCreateRoundRect" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#, ByVal X3#, ByVal Y3#) As Long
  57. Declare Function SCreateTextOut Lib "FG.VBX" Alias "SCreateTextOut" (ByVal PictureHandle&, ByVal X1#, ByVal Y1#, ByVal NewText$) As Long
  58. Declare Function SBCreateTabbedTextOut Lib "FG.VBX" Alias "SBCreateTabbedTextOut" (ByVal PictureHandle&, ByVal X#, ByVal Y#, ByVal NewText$, TabStopPositions#(), ByVal TabOrigin#) As Long
  59. Declare Function SCreatePolyTextOut Lib "FG.VBX" Alias "SCreatePolyTextOut" (ByVal PictureHandle&) As Long
  60. Declare Function SBCreatePolyTextOut Lib "FG.VBX" Alias "SBCreatePolyTextOut" (ByVal PictureHandle&, ThePoints() As SCALEPOINTAPI, OutText$()) As Long
  61.  
  62. ' Positive border widths are scalable
  63. Declare Sub SetBorderWidth Lib "FG.VBX" Alias "SETPENWIDTH" (ByVal GraphicHandle&, ByVal nPenStyle%)
  64. ' 0 - Solid
  65. ' 1 - Dash
  66. ' 2 - Dot
  67. ' 3 - Dash Dot
  68. ' 4 - Dash Dot Dot
  69. ' 5 - Transparent
  70. ' 6 - Inside Solid
  71. Declare Sub SetBorderStyle Lib "FG.VBX" Alias "SETPENSTYLE" (ByVal GraphicHandle&, ByVal nPenWidth%)
  72. Declare Sub SetBorderColor Lib "FG.VBX" Alias "SETPENCOLOR" (ByVal GraphicHandle&, ByVal crColor&)
  73.  
  74. ' 0 - Solid
  75. ' 1 - Hollow
  76. ' 2 - Horizontal Lines
  77. ' 3 - Vertical Lines
  78. ' 4 - Upward Diagonal
  79. ' 5 - Downward Diagonal
  80. ' 6 - Cross
  81. ' 7 - Diagonal Cross
  82. Declare Sub SetFillStyle Lib "FG.VBX" Alias "SetFillStyle" (ByVal GraphicHandle&, ByVal nBrushStyle%)
  83. Declare Sub SetFillColor Lib "FG.VBX" Alias "SetFillColor" (ByVal GraphicHandle&, ByVal crColor&)
  84.  
  85. Declare Sub SetFontPixelHeight Lib "FG.VBX" Alias "SetPixelFontHeight" (ByVal GraphicHandle&, ByVal nHeight%)
  86. Declare Sub SetFontPointHeight Lib "FG.VBX" Alias "SetPointFontHeight" (ByVal GraphicHandle&, ByVal nHeight%)
  87. Declare Sub SetFontScaleHeight Lib "FG.VBX" Alias "SetScaleFontHeight" (ByVal GraphicHandle&, ByVal dHeight#)
  88. Declare Sub SetFontPixelWidth Lib "FG.VBX" Alias "SetPixelFontWidth" (ByVal GraphicHandle&, ByVal nWidth%)
  89. Declare Sub SetFontPointWidth Lib "FG.VBX" Alias "SetPointFontWidth" (ByVal GraphicHandle&, ByVal nWidth%)
  90. Declare Sub SetFontScaleWidth Lib "FG.VBX" Alias "SetScaleFontWidth" (ByVal GraphicHandle&, ByVal dWidth#)
  91. Declare Sub SetFontEscapement Lib "FG.VBX" Alias "SetFontEscapement" (ByVal GraphicHandle&, ByVal nEscapement%)
  92. Declare Sub SetFontWeight Lib "FG.VBX" Alias "SetFontWeight" (ByVal GraphicHandle&, ByVal nWeight%)
  93. Declare Sub SetFontItalic Lib "FG.VBX" Alias "SetFontItalic" (ByVal GraphicHandle&, ByVal nItalic%)
  94. Declare Sub SetFontUnderline Lib "FG.VBX" Alias "SetFontUnderline" (ByVal GraphicHandle&, ByVal nUnderline%)
  95. Declare Sub SetFontStrikeOut Lib "FG.VBX" Alias "SetFontStrikeOut" (ByVal GraphicHandle&, ByVal nStrikeOut%)
  96. Declare Sub SetFontFaceName Lib "FG.VBX" Alias "SetFontFaceName" (ByVal GraphicHandle&, ByVal FaceName As String)
  97. Declare Sub SetFontColor Lib "FG.VBX" Alias "SetFontColor" (ByVal GraphicHandle&, ByVal crColor&)
  98.  
  99. Declare Sub SetBackColor Lib "FG.VBX" Alias "SetBackColor" (ByVal GraphicHandle&, ByVal crColor&)
  100. ' 1 - Transparent
  101. ' 2 - Opaque
  102. Declare Sub SetBackStyle Lib "FG.VBX" Alias "SetBackStyle" (ByVal GraphicHandle&, ByVal BackStyle%)
  103. '  1 - Pixel